1 GOTO910 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX` 5 PRINT"hhhhhhh` 6 [153]"CLOSE(null)LEFT$INPUT#(null)STEP(null)INPUT(null) (null)USRRUNNEWCLOSE(null)LEFT$ON(null)LET(null)(null)(null)(null)MID$(null)(null)` 7 PRINT"[162][160][255][200][177][251][145][253][136][208][249][230][252][230][254][202][208][242]` 35 [139]UW[178]0[167][158]UU,15 40 [151]UC,0:[151]UN,0:UR$[178]"":UI$[178]"":[139]UL[178]0[167]UL[178]39 45 [161]UI$:[139]UI$[178]""[167]45 50 UA[178][198](UI$):UR[178][195](UR$):[139]UA[178]13[175]UR[177]0[167][151]UC,1:[153]" CMD";:[137]75 55 [139]UA[178]20[167][145][171](UR[178]0)[137]45:UR$[178][200](UR$,UR[171]1):[153]"CMD CMDCMD";:[137]45 60 [139]UR[178]UL[167]45 65 [141]95:UR$[178]UR$[170]UI$:[153]UI$;:[137]45 75 [129]UI[178]UR[164]1[169][171]1:[139][202](UR$,UI,1)[178]" "[167][130] 80 UR$[178][200](UR$,UI):[153]:[142] 95 [139][195](US$)[178]0[167]110 100 [129]UI[178]1[164][195](US$):[139]UI$[179][177][202](US$,UI,1)[167][130]:UI$[178]"" 105 [142] 110 [139]UA[178]46[167][142] 115 [139]UA[178]32[175]UR[179][177]0[167][142] 120 [139]UA[177]47[175]UA[179]58[167][142] 125 [139]UA[177]64[175]UA[179]91[167][142] 130 [139]UA[179]193[176]UA[177]218[167]UI$[178]"":[142] 135 [139][194](UT)[178]UU%[167]UI$[178][199](UA[171]128) 140 [142] 155 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UT$[178]UL$:UP[178]UJ:UL[178]UK:[153]"LOAD";:[151]UY,6:[151]UX,6 160 [151]UT,UV%:[151]251,0:[151]252,UF:[151]253,0:[151]254,US[173]256:[158]UV:[158]UU,15 165 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%[171]1:[151]U4,U4%:[137]35 299 : 300 [143] DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983 310 [143] PROJECT MANAGER: FRANK WINTER 320 [143] PROGRAM NAME: CONTRACTIONS 330 [143] WRITTEN BY: BRUCE J. ALATALO 340 [143] REVISED BY: SANDRA BLANKENFELDT 350 [143] UPDATED BY: BILL CUMBERLAND 360 : 399 : 400 [153]"LOAD":[151]UT,UL%:[151]UY,0:[151]UX,0:[151]646,3 405 [153]"  RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) WAIT 410 PRINT" [212]HIS PROGRAM WILL HELP YOU LEARN" 415 PRINT" HOW TO FORM CONTRACTIONS." 420 PRINT" [201] WILL SHOW YOU TWO WORDS. 425 [153]" (null)OUR TASK IS TO TYPE THE CONTRACTIONWAIT." 430 [153]" (null)HEN, RIGHT$ WILL EITHER CONGRATULATE YOU" 435 [153]" FOR GIVING THE CORRECT ANSWER, OR 440 PRINT" TELL YOU THAT YOU ANSWERED INCORRECTLY" 445 PRINT" AND SHOW YOU THE CORRECT CONTRACTION.":GOSUB820 450 PRINT"[147] [193] CONTRACTION IS A WORD MADE BY " 452 PRINT" COMBINING TWO OTHER WORDS." 454 PRINT" [212]O DO THIS, YOU MUST USE AN" 456 PRINT" APOSTROPHE  ' [146]. [212]HE APOSTROPHE SHOWS" 458 PRINT" THAT A LETTER OR LETTERS IS/ARE MISSING." 460 PRINT" [212]HE FOLLOWING 7 WORDS ARE MOST" 462 PRINT" OFTEN USED AS THE SECOND PART OF A " 464 PRINT" CONTRACTION:" 465 GOSUB820 466 PRINT"[147] [200]ERE ARE THE 7 WORDS AND THEIR CONTRACTIONS:" 468 PRINT"  HAVE [146] ------------  'VE [146]" 470 PRINT"  HAD,WOULD [146] -------  'D [146]" 472 PRINT"  NOT [146] -------------  N'T [146]" 474 PRINT"  AM [146] --------------  'M [146]" 476 PRINT"  WILL [146] ------------  'LL [146]" 478 PRINT"  ARE [146] -------------  'RE [146]" 480 PRINT"  IS [146] --------------  'S [146]" 485 PRINT" [208]RESS  [210] [146] TO REPEAT INSTRUCTIONS AND  [195] [146] TO CONTINUE. 490 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[167]490 493 [139]R$[178]"R"[167]400 495 [142] 499 : 500 [143] SOUND 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130] 510 [151]54296,15:[151]54277,42:[151]54278,250 515 [151]54276,23:[151]54273,23:[151]54272,191 520 [129]TM[178]1[164]100:[130]:[151]54276,32:[129]TM[178]1[164]200:[130] 525 [151]54296,0:[142] 530 [143] SOUND 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130] 540 [151]54296,15:[151]54277,18:[151]54278,242 545 [151]54276,33:[151]54273,4:[151]54272,48 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130] 555 [151]54296,0:[142] 560 [143] SOUND 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130] 570 [151]54296,8:[151]54277,42:[151]54278,250 575 [151]54276,23:[151]54273,23:[151]54272,191 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130] 585 [151]54296,0:[142] 590 [129]TM[178]1[164]500:[130]:[142] 591 [129]TM[178]1[164]1000:[130]:[142] 592 [129]TM[178]1[164]2000:[130]:[142] 593 [129]TM[178]1[164]3000:[130]:[142] 594 [129]TM[178]1[164]4000:[130]:[142] 595 [129]TM[178]1[164]5000:[130]:[142] 596 [129]TM[178]1[164]6000:[130]:[142] 597 [129]TM[178]1[164]7000:[130]:[142] 599 : 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,3 801 [153]" A TPUG EDUCATIONAL PROGRAM":[141]591 805 [153]" WAIT"; 806 [153]" WAIT"; 807 [153]" CONTRACTIONS WAIT"; 808 [153]" WAIT"; 809 [153]" WAIT":[141]591:[141]560 810 [153]" INSTRUCTIONS? Y/N 811 GETR$:IFR$<>"Y"ANDR$<>"N"THEN811 812 IFR$="Y"THENGOSUB400 813 PRINT"[147] AND AWAY WE GO ...... " 814 GOSUB591:GOSUB500:GOSUB590:GOTO1000 819 : 820 GOSUB591:GOSUB560 822 POKEUN,0:PRINTLEFT$(UD$,24);" [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146]" 824 GETUI$:IFUI$<>" "THEN824 826 RETURN 829 : 830 GOSUB591:GOSUB560 835 POKEUN,0:PRINTLEFT$(UD$,24);"[153] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146][155]" 840 GETUI$:IFUI$<>" "THEN840 845 RETURN 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18) 855 PRINT" --------------------------------------" 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"ANSWER, THEN PRESS RETURN[146]" 865 UH=0:PRINT"":RETURN 875 PRINTLEFT$(UD$,24);" ONE MOMENT PLEASE... ":RETURN 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238 905 UD$="":UP$=" " 906 DIMF$(40),E$(40),B$(201) 907 UT$=" CONTRACTIONS" 909 RETURN 910 GOSUB900:PRINT"[147] " 970 GOTO 800 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,15:POKEUX,15:POKEUT,UU% 1020 PRINT"[147]" 1680 REM**MAIN PROGRAM** 1685 UT$=" CONTRACTIONS":UG$="QUESTION":POKEUX,15:POKEUY,15:POKE646,9 1690 RT=0:WR=0:NN=0:PRINT"[147]" 1710 RESTORE:FORI=1TO38:READF$(I):NEXTI 1720 FORI=1TO38:READE$(I):NEXTI 1730 REM POKEUX,0:POKEUY,9:SYSUU,15 1733 PX=INT(RND(0)*38+1) 1735 NN=NN+1:UP=NN-1 1736 IFNN>10THENGOTO8000 1737 POKE53280,15:POKE53281,15:POKE646,9:GOSUB850 1740 PRINT" WHICH CONTRACTION IS FORMED BY:" 1750 PRINT""TAB(15)F$(PX) 1765 INPUT" YOUR ANSWER: ";UR$ 1766 REM INPUT" UR$:REM GETUR$:IUR$=""THEN1766 1767 UL[178]15:US$[178]"ABCDEFGHIJKLMNOPQRSTUVWXYZ'":AX$[178]UR$ 1770 [139] AX$[178]E$(PX)[167][141]6000:RT[178]RT[170]1:[137]1820 1780 [139]AX$[179][177]E$(PX)[167] [141]7000:WR[178]WR[170]1 1790 [153]"LOADTHE CORRECT ANSWER IS ";E$(PX) 1800 [153]"IT IS NOT ";AX$;"." 1810 [153]" FREFREFRE":[141]597 1820 : 1870 [137]1730 1880 [143]**COMPONENT WORDS** 1890 [131] IS + NOT,I + HAVE,YOU + ARE,IT + IS,WILL + NOT, + WOULD 1900 [131] COULD + HAVE,HAVE + NOT, + AM,I + WILL,SHOULD + NOT 1910 [131] WE + WILL,SHE + WOULD,HE + IS,DO + NOT,HE + WILL 1920 [131] THEY + HAVE,DID + NOT,THAT + IS,WE + ARE,HE + WOULD 1930 [131] DOES + NOT,SHE + IS,YOU + HAVE,THEY + ARE,WOULD + NOT 1940 [131] THEY + WILL,YOU + WOULD OR HAD,WE + HAVE,IT + WILL 1950 [131] COULD + NOT,WE + HAD OR WOULD,SHOULD + HAVE,YOU + WILL 1960 [131] THEY + WOULD OR HAD,WOULD + HAVE,SHE + WILL,HAD + NOT 1970 [131] ISN'T,'VE,YOU'RE,IT'S,WON'T,'D,COULD'VE,HAVEN'T,I'M 1980 [131] 'LL,SHOULDN'T,WE'LL,SHE'D,HE'S,DON'T,HE'LL,THEY'VE,DIDN'T 1990 [131] THAT'S,WE'RE,HE'D,DOESN'T,SHE'S,YOU'VE,THEY'RE,WOULDN'T 2000 [131] THEY'LL,YOU'D,WE'VE,IT'LL,COULDN'T,WE'D,SHOULD'VE,YOU'LL 2010 [131] THEY'D,WOULD'VE,SHE'LL,HADN'T 6000 [153]" CORRECT! " 6010 [141]500:[141]593:[142] 7000 [143]***FROWNING FACE*** 7010 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,7: 7020 X$[178]" " 7030 [153]X$;" 7040 PRINTX$;" @@@@@@@@@@@@ 7050 [153]X$;" THEN FN 7060 PRINTX$;" [167] [165] 7070 [153]X$;" SPC(SPC( X X SPC(SPC( 7080 PRINTX$;" [166][166] [166][166] 7090 [153]X$;" THEN () FN 7100 PRINTX$;" [167] [165] 7110 [153]X$;" THEN INTFREFREABS FN 7120 PRINTX$;" [205] [181] [182] [206] 7130 [153]X$;" (null) (null) 7140 PRINTX$;" [205] [206] 7150 [153]X$;" TAB(TAB(TAB(TAB(TAB(TAB( " 7160 [153]X$;" O U C H ! " 7170 [141]530:[141]592 7180 [142] 8000 [153]"LOADSTOP HERE IS YOUR SCORE 8010 PRINT" YOU ANSWERED "NN-1" QUESTIONS 8020 [153]" "RT" ANSWERS WERE STOPCORRECTVERIFY" 8030 [153]" "WR" ANSWERS WERE DEFWRONGVERIFY 8040 GOSUB594:GOSUB560 8050 PRINT" [196]O YOU WISH TO REPEAT THIS PROGRAM?  ([217] OR [206]); 8055 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]8055 8060 [139]R$[178]"Y"[167] [140]:[137]800 8070 [153]"LOAD (null)ETURNING TO THE DISK (null)VAL(null)(null) 8075 LOAD"MENU",8 8080 RUN 8085 END 9000 REM WHC 90:11:29